﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<% 
dim bnid,nid,namer,zf,xingbie,nianlin1,meili,tili,renqi,vip,diqu,monery,monery1,mark,touxian,vip1,doing,doingtime,grade,onlinetime,time,viptime 
        bnid=Request.QueryString("nid")
	if bnid="" then bnid=qingtian.nid
	if not isnumeric(bnid) then bnid=qingtian.nid
	bnid=clng(bnid)
       		if sid<>"Null" then
                namer=qingtian.name(bnid)
                Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select [id],[zf],[grade],[doing],[doingtime],[xingbie],[nianlin],[touxian],[xunzhan],[shengri],[onlinetime],[mark],[meili],[money],[money1],[renqi],[qq],[mail],[tili],[renqi],[vip],[viptime],[diqu],[bbs] from [qingtian_user] where [ID]="&bnid&""
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then
                nid=rs("id")
                zf=rs("zf")
                grade=rs("grade")
                doing=rs("doing")
                doingtime=rs("doingtime")
                xingbie=qingtian.utf8(rs("xingbie"))
                nianlin1=rs("nianlin")
                meili=rs("meili")
                tili=rs("tili")
                renqi=rs("renqi")
                meili=rs("meili")
                qq=rs("qq")
                mail=rs("mail")
                touxian=rs("touxian")
                xunzhan=rs("xunzhan")
                mark=rs("mark")
                time=rs("shengri")
                onlinetime=rs("onlinetime")
                bbs=rs("bbs")
if bbs then 
bbs="[站长]" 
else
bbs=""
end if

                vip=rs("vip")
                viptime=rs("viptime")
                diqu=qingtian.utf8(rs("diqu"))
                monery=qingtian.utf8(rs("money"))
                if bnid=qingtian.nid then
                monery1=qingtian.utf8(rs("money1"))
                else
                monery1="保密"
                end if
                else
                qingtian.err("没有该会员资料")
                end if
                Rs.close
set rs=nothing
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "select  [listid] from [qingtian_bbs_bz] where [del]=0 and [nid]="&nid&" order by [id] desc"
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof) then
bbs=bbs&"[论坛版主]"
else
bbs=bbs 
                end if
                Rs.close
set rs=nothing
if bbs="" then bbs="无职务"
zft=qingtian.jibie(zf)
select case v
case "0"
we0="<br/>"
hr="------------------<br/>"
%>
<card title="<%=qingtian.utf8(namer)%>的资料"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title><%=qingtian.utf8(namer)%>的资料</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
qingtian.info
%>		
<%

qingtian.addong("访问了[url=/user/spacev.asp?nid="&nid&"&sid=[sid]]"&namer&"的个人资料[/url]")
if vip=1 then vip1="<img src=""/img/vip.gif"" alt='vip' noselect = ""true"" />"
%><%=qingtian.qingsav("402")%>
<%=dao%><b><%=qingtian.utf8(namer)%>的空间(ID:<%=qingtian.utf8(nid)%>)-<%=qingtian.onlina(nid)%></b><%=vip1%><%=we0%><%=hr%>
<%=sou%><a href="spacev.Asp?nid=<%=nid%>&amp;sid=<%=sidd%>">Ta的空间</a>|详细资料<%=we0%><%=hr%><%=we%><img src="<%=touxian%>" alt='附件' noselect = "true" /><br/><a href="addinfo.asp?bid=<%=nid%>&amp;sid=<%=sidd%>">发消息</a>.<a href="addfans.asp?fansid=<%=nid%>&amp;sid=<%=sidd%>&amp;url=spacev.asp?nid=<%=nid%>">加好友</a>.<a href="znaonao.Asp?Action=pay1&amp;fansid=<%=nid%>&amp;sid=<%=sidd%>">挠挠TA</a>.<a href="chuwu.asp?Act=1&amp;fansid=<%=nid%>&amp;sid=<%=sidd%>">送礼物</a>.<a href="zqingshu.asp?Action=pay1&amp;fansid=<%=nid%>&amp;sid=<%=sidd%>">送情书</a>.<a href="myliuyan.asp?nid=<%=nid%>&amp;sid=<%=sidd%>">发留言</a><br/>
头衔:<%=zft%>(<%=qingtian.vip(nid)%>)<br/> 
<%if vip=1 then%>
VIP到期时间:<%=viptime%><br/>
<%end if%>
职务:<%=bbs%><br/>
勋章:<%=xunzhan%><br/>
性别:<%=xingbie%><br/>
年龄:<%=nianlin1%>岁<br/>
地区:<%=diqu%><br/>
积分:<%=zf%><br/>
等级:<%=grade%><br/>
人气:<%=renqi%><br/>
魅力:<%=meili%><br/>
体力:<%=tili%><br/>
财富:<%=qingtian.bi%>(<%=monery%>).<%=qingtian.bit%>(<%=monery1%>)<br/>
QQ:<%=qq%><br/>
邮箱:<%=mail%><br/>
签名:<%=mark%><br/>
注册时间:<%=time%><br/>
最近访问:<%=onlinetime%><br/>
TA最近的动态:<br/><%=qingtian.datatime(now,doingtime)%>前TA<%=qingtian.ubb(doing)%><%=we0%><%=qingtian.qingsav("403")%>
<%=hr%>
<%=sou%>
<a href="spacev.Asp?nid=<%=nid%>&amp;sid=<%=sidd%>">返回来源页</a>
<%=we0%> 
<% 
else
Response.Redirect "/login.asp?sid=" & sidd & "&url=/user/space.asp?sid="&sidd&"@@urls="&urls

end if

end Function
%>































